Dim lbstr As String()
lbstr = New String() {"Carbon", "Oxygen", "Hydrogen"}
Dim strval As String()
strval = New String() {"1", "2", "3"}
Dim lbcell As New FarPoint.Web.Spread.ListBoxCellType(lbstr, strval)
lbcell.SelectedBackColor = Color.Yellow
lbcell.SelectedForeColor = Color.DarkBlue
FpSpread1.ActiveSheetView.Cells(0, 0).CellType = lbcell
FpSpread1.ActiveSheetView.SetValue(0, 0, "3")
FpSpread1.ActiveSheetView.Rows(0).Height = 140
Dim lbstr As String()
lbstr = New String() {"Carbon", "Oxygen", "Hydrogen"}
Dim strval As String()
strval = New String() {"1", "2", "3"}
Dim lbcell As New FarPoint.Web.Spread.ListBoxCellType(lbstr, strval)
lbcell.SelectedBackColor = Color.Yellow
lbcell.SelectedForeColor = Color.DarkBlue
FpSpread1.ActiveSheetView.Cells(0, 0).CellType = lbcell
FpSpread1.ActiveSheetView.SetValue(0, 0, "3")
FpSpread1.ActiveSheetView.Rows(0).Height = 140